home *** CD-ROM | disk | FTP | other *** search
/ IRIX 6.4 Applications 1997 August / SGI IRIX 6.4 Applications 1997 August.iso / dist / dynaweb.idb / usr / lib / Insight / data / config / rootview.dwc.z / rootview.dwc
Encoding:
Text File  |  1997-07-30  |  3.6 KB  |  113 lines
  1. #####################################################################
  2. #####################################################################
  3. ##                                                                 ##
  4. ##                    ROOT VIEW CREATION                           ##
  5. ##                                                                 ##
  6. #####################################################################
  7. #####################################################################
  8.  
  9. dwScript Generic__RootView {
  10.     if {[dwGet State__Frames] == 1} {
  11.         dwProcessTemplate  Frames__RootView
  12.     } else {
  13.         dwProcessTemplate  NoFrames__RootView
  14.     }
  15. }
  16.  
  17. dwTemplate Frames__RootView {
  18. <HTML>
  19.    <HEAD>
  20.       <TITLE>DynaWeb 3.1: The Root Collection </TITLE>
  21.       <BASE HREF="$[dwGet BaseUrl]@Generic__RootView">
  22.    </HEAD>
  23.    <FRAMESET ROWS="*,64">
  24.       <FRAMESET COLS="35%,65%">
  25.          <FRAME NAME = "dynaweb_toc"   
  26.                 SRC  = "$[dwGet BaseUrl]@Generic__RootCollectionView$[dwGet UrlParamString]$[dwGet UrlQueryString]">
  27.          <FRAME NAME = "dynaweb_content" 
  28.                 SRC  = "$[dwGet BaseUrl]@Generic__Splash">
  29.       </FRAMESET>
  30.       <FRAME NAME="dynaweb_bbar"
  31.              SRC="@Generic__RootButtonBarView$[dwGet UrlParamString]$[dwGet UrlQueryString]"
  32.              SCROLLING=no MARGINWIDTH=8 MARGINHEIGHT=4>
  33.    </FRAMESET>
  34.    <NOFRAMES>
  35.       <BODY>
  36.          <H3>This browser does not support frames.</H3>
  37.          <HR><BR><BR>
  38.         $[dwCall RemoveHfUrlParam]
  39.          <P><H3><A HREF="$[dwGet BaseUrl]@NoFrames__RootView$[dwGet UrlParamString]$[dwGet UrlQueryString]">Show the non-frames version.</H3></A>
  40.       </BODY>
  41.    </NOFRAMES>
  42. </HTML>
  43. }
  44.  
  45. dwTemplate Generic__Splash {
  46. <HTML>
  47.    <HEAD>
  48.       <TITLE>DynaWeb 3.1</TITLE>
  49.    </HEAD>
  50.    <BODY BGCOLOR=#D0D0FF>
  51.      <TABLE WIDTH="100%" HEIGHT="100%">
  52.         <TR><TD ALIGN=CENTER VALIGN=CENTER>
  53.         <IMG SRC="$[dwGetParam ImageDir]/europa.gif" BORDER=0>
  54.      </TABLE>
  55.    </BODY>
  56. </HTML>
  57. }
  58.  
  59.  
  60. dwTemplate NoFrames__RootView {
  61. <HTML>
  62.    <HEAD>
  63.       <TITLE>DynaWeb 3.1: The Root Collection </TITLE>
  64.       <BASE HREF="$[dwGet BaseUrl]@Generic__RootView">
  65.    </HEAD>
  66.    <BODY BGCOLOR=#FFFBF0 LINK=#000000 ALINK=#008000 VLINK=#800080>
  67.       $[dwCall Generic__RootButtonBarView]
  68.       <BR>
  69.       $[dwCall Generic__RootCollectionView]
  70.      <HR SIZE=4>
  71.    </BODY>
  72. </HTML>
  73. }
  74.  
  75. #####################################################################
  76. #####################################################################
  77. ##                                                                 ##
  78. ##             ROOT COLLECTION VIEW CREATION                       ##
  79. ##                                                                 ##
  80. #####################################################################
  81. #####################################################################
  82.  
  83. dwScript Generic__RootCollectionView {
  84.     if {[dwGet State__Frames] == 1} {
  85.         dwProcessTemplate Frames__RootCollectionView
  86.     } else {
  87.         dwProcessTemplate NoFrames__RootCollectionView
  88.     }
  89. }
  90.  
  91. dwTemplate Frames__RootCollectionView {
  92. <HTML>
  93.    <HEAD>
  94.       <BASE HREF="$[dwGet BaseUrl]@Generic__RootCollectionView">
  95.    </HEAD>
  96.    <BODY BGCOLOR=#FFFBF0 LINK=#000000 ALINK=#008000 VLINK=#800080>
  97.       <H3>List of Collections on $[dwGetUrlServer]</H3>
  98.       <HR>
  99.       $[dwSet ShowingRootCollection 0]
  100.       $[dwCall Generic__GenerateCollectionViewBody]
  101.       <HR>
  102.     </BODY>
  103. </HTML>
  104. }
  105.       
  106. dwTemplate NoFrames__RootCollectionView {
  107.         <HR SIZE=4>
  108.         <H3>List of Collections on $[dwGetUrlServer]</H3>
  109.         $[dwSet ShowingRootCollection 0]
  110.         $[dwCall Generic__GenerateCollectionViewBody]
  111. }
  112.  
  113.